<script>on mouseUpglobal CustomPaletteif not CustomPalette thenpalette set, Alexput true into CustomPaletteput "Custom Palette" into line one of cd field 1elsepalette set, 128put false into CustomPaletteput "Standard Palette" into line one of cd field 1end iflock screenunlock screenopencardend mouseUp</script>
</part>
<part>
<id>2</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>235</left>
<top>221</top>
<right>444</right>
<bottom>249</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>445</left>
<top>295</top>
<right>510</right>
<bottom>341</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>21449</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Go Back</name>
<script>on mouseUpgo next cardend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>2</id>
<text>Standard PaletteClick Picture to Change Palettes</text>
</content>
<name></name>
<script>on opencardglobal CustomPaletteif CustomPalette is empty thenput false into CustomPaletteend ifshowpict Alex,item 1 of rect of cd btn 1 & "," & item 2 of rect of¬cd btn 1pass opencardend opencardon closecardglobal CustomPalettepalette s, 128put false into CustomPaletteput "Standard Palette" into line one of cd field 1end closecard</script>
</card>
card_2924.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpif the visible of cd field "Source" is true thenhide cd field "Source"set the name of me to "Show Source"elseset the name of me to "Hide Source"show cd field "Source"end ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>236</left>
<top>50</top>
<right>510</right>
<bottom>293</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Source</name>
<script>on mouseupsend mouseup to cd btn id 3end mouseup</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>445</left>
<top>295</top>
<right>510</right>
<bottom>341</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24830</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Test XFCN</name>
<script>on mouseUpgo next cardend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text><span class="style1">alette is a simple XCMD which changes the current color palette on your machine. Why?? Well simple, what if you were doing QuickTime movies (like I was) and your target only had 8 bit video cards. QuickTime does not remap the Color LookUp Table (CLUT) it, instead, dithers it's colors and there is a noticable degradation in color quality on some video, which as a rule is 16 bit color. Palette can extract the best 256 colors and build a color palette which is stored in the resource fork of the stack. It can then change the systems color palette so that when the picture is displayed it looks best it can on an 8 bit monitor.</span><span class="style3">Syntax looks like this:</span><span class="style1"></span><span class="style4">Palette <[G]et>, <Name, ID,"Clipboard">, NamePalette <[S]et>,<Name, ID></span><span class="style1">Get tells the XCMD to find a Picture either by Name, ID, or on the Clipboard and make a Palette. It then writes the Palette out to the stacks resource fork, and names it. (i.e. Palette Get, Rush or Palette G, 11868, Rush or Palette Get, Clipboard, Rush ).Set will take the pltt resource either by name or ID number and make it the current palette. (i.e. Palette S, 11868 or Palette Set, Rush).</span><span class="style3">System Requirements:</span><span class="style1">Must have System 7 to run this XCMD, I do not check for it, it is your responsibility, it will crash on a non System 7 machine.</span><span class="style3">Liscensing:</span><span class="style1">This software is shareware. And I am not greedy, I want 5% of any money you make off of software using this XCMD or 10 dollars which ever is smaller. (This means that if you make nothing off your software you owe me nothing.) If you make a killing send me the 10 bucks.</span><span class="style3">Source Code:</span><span class="style1">You are free to use the source code provided in anyway you see fit. If you change it (and you will have to to make it run) you must remove my name from the copyright.JerSquard Software3737 N. Country Club Dr. Ste. 218-STucson, AZ 85716email 'jersquard@aol.com'</span></text>
 (January 1993).iso/Files/Hyper/P/Palette.cpt/Palette Stack/BMAP_3587.png){kind=link}
 (January 1993).iso/Files/Hyper/P/Palette.cpt/Palette Stack/PATs.png){kind=link}